home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 12 / BBS in a box XII-2.iso / Files II / Hyper / Hy-Hyperi / HyperBBS 2.0.sit / HyperBBS 2.0 / Survey Stack / background_2738.xml next >
Encoding:
Extensible Markup Language  |  1992-07-14  |  3.2 KB  |  77 lines

  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>2738</id>
  5.     <filler1>0</filler1>
  6.     <cantDelete> <false /> </cantDelete>
  7.     <showPict> <true /> </showPict>
  8.     <dontSearch> <false /> </dontSearch>
  9.     <link rel="stylesheet" type="text/css" href="stylesheet_3127.css" />
  10.     <part>
  11.         <id>1</id>
  12.         <type>field</type>
  13.         <visible> <true /> </visible>
  14.         <dontWrap> <false /> </dontWrap>
  15.         <dontSearch> <false /> </dontSearch>
  16.         <sharedText> <false /> </sharedText>
  17.         <fixedLineHeight> <true /> </fixedLineHeight>
  18.         <autoTab> <false /> </autoTab>
  19.         <lockText> <false /> </lockText>
  20.         <rect>
  21.             <left>0</left>
  22.             <top>0</top>
  23.             <right>512</right>
  24.             <bottom>123</bottom>
  25.         </rect>
  26.         <style>scrolling</style>
  27.         <autoSelect> <false /> </autoSelect>
  28.         <showLines> <true /> </showLines>
  29.         <wideMargins> <false /> </wideMargins>
  30.         <multipleLines> <false /> </multipleLines>
  31.         <reservedFamily> 0 </reservedFamily>
  32.         <titleWidth>0</titleWidth>
  33.         <icon>0</icon>
  34.         <textAlign>left</textAlign>
  35.         <font>Monaco</font>
  36.         <textSize>9</textSize>
  37.         <textStyle>plain</textStyle>
  38.         <textHeight>12</textHeight>
  39.         <name>Online Survey</name>
  40.         <script>-- long
  41. </script>
  42.     </part>
  43.     <part>
  44.         <id>2</id>
  45.         <type>field</type>
  46.         <visible> <true /> </visible>
  47.         <dontWrap> <false /> </dontWrap>
  48.         <dontSearch> <false /> </dontSearch>
  49.         <sharedText> <false /> </sharedText>
  50.         <fixedLineHeight> <true /> </fixedLineHeight>
  51.         <autoTab> <false /> </autoTab>
  52.         <lockText> <false /> </lockText>
  53.         <rect>
  54.             <left>0</left>
  55.             <top>219</top>
  56.             <right>512</right>
  57.             <bottom>342</bottom>
  58.         </rect>
  59.         <style>scrolling</style>
  60.         <autoSelect> <false /> </autoSelect>
  61.         <showLines> <true /> </showLines>
  62.         <wideMargins> <false /> </wideMargins>
  63.         <multipleLines> <false /> </multipleLines>
  64.         <reservedFamily> 0 </reservedFamily>
  65.         <titleWidth>0</titleWidth>
  66.         <icon>0</icon>
  67.         <textAlign>left</textAlign>
  68.         <font>Monaco</font>
  69.         <textSize>9</textSize>
  70.         <textStyle>plain</textStyle>
  71.         <textHeight>12</textHeight>
  72.         <name>Results</name>
  73.         <script>-- notThere
  74. </script>
  75.     </part>
  76.     <name></name>
  77.     <script>on doIt
  78. global lastSurveyCard, onLine
  79. put the short name of the target into surveyResult
  80. put "no" into foundIt
  81. repeat with X = 1 to the number of lines in bg field "Results"
  82. if item 1 of line X of bg field "Results" is surveyResult then
  83. add 1 to item 2 of line x of bg field "Results"
  84. put "yes" into foundIt
  85. exit repeat
  86. end if
  87. end repeat
  88. if foundIt is "no" then
  89. put surveyResult & "," & 1 & return after bg field "Results"
  90. end if
  91. put 0 into tally
  92. repeat with X = 1 to the number of lines in bg field "Results"
  93. add item 2 of line X of bg field "Results" to tally
  94. end repeat
  95. repeat with X = 1 to the number of lines in bg field "Results"
  96. put item 1 of line x of bg field "Results" into word1
  97. put item 2 of line x of bg field "Results" into amt1
  98. put (amt1/tally) * 100 into percentage
  99. set numberFormat to "#0.##"
  100. put percentage & "% voted " & word1 & " (" & amt1 & " people)"¬¨
  101. into sendMe
  102. if onLine then
  103. sendString sendMe
  104. else
  105. put sendMe & "..."
  106. wait until the mouseClick
  107. end if
  108. end repeat
  109. if the id of this card is lastSurveyCard then
  110. pop card
  111. else
  112. go next card
  113. end if
  114. end doIt
  115.  
  116. </script>
  117. </background>
  118.